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ORIGINAL 
SERVIET CODE 



^Sa' 



main 



265b' 'do table 1 
s = getShares 
for i in shares 
doShare(i) 



265c' doShare'i' 
n = getName(i) 
p = getPrice(i) 
write (n "current price is" p) 



30' 
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WRAPPED 
SERVIET CODE 



^265a' 



'main' 



268b'— 



268c'— 



Wrapped Fragment ^ 
If (already done 
('do table')) 

{write start x, 270b' 

end x} 
mod list += "copy to x" 
else 
write start x 
do body 

265b' 'do table' 
s = getShares 
for i in shares 
doShare(i) 

write end x 



Wrapped Fragment 

If (already done 270c' 
do Share'!')) 

{write start x, end x} 

mod list += "copy to x" 
else 

write start x 

do body 

265c' doShare'i' 
n = getName(i) 
p = getPrice(i) 
write (n "current price is" p) 
X J 

write end x 
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265b" 'do table 1 
s = getShares 
for i in shares 
doShare(i) 



265c" doShare'i' 
n = getName(i) 
p = getPrice(i) 
write (n "current price is" p) 
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283 284 

( ( 
OUTPUT MODLIST 

I I 

a 285a 

a I 290a I assign 1->0-^ 

b I <span id=1>-^ | 

c <table> 

c I <tr> I 

c | <td>Name</td> | 

c . . <td> Price </td> . 

c I <tr> 290b ' 

d | <span id=2> J \ 

e I <tr> I 

e I <td> ABC Corp. </td>' 

e | <td>99.9</td> | 

e I <tr> 295b i 

d ' </span> <!-id=2 -->J ' 

f | </spanid=3>^ | 

g . <tr> 290c , 

g 1 <td>XYZ Corp. </td>' 

g I <td>1.2</td> I 

g | </tr> 1 295c 

f </span> <!~id=3 --> — 

h I <span id=4>-^ 290d I copy 2 --> 4 -285b 

h | </span> <!--id=4 --> - |-295b 

c - </table> -295d i 

b ' </span> <!--id=1 ->■ — L295a 

a I I 

3 I I 

I I 
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